home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sys / time.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  898 b   |  31 lines
  1. if (!defined &_SYSTIME) {
  2.     eval 'sub _SYSTIME {1;}';
  3.     require 'cfuncproto.ph';
  4.     eval 'sub DST_NONE {0;}';
  5.     eval 'sub DST_USA {1;}';
  6.     eval 'sub DST_AUST {2;}';
  7.     eval 'sub DST_WET {3;}';
  8.     eval 'sub DST_MET {4;}';
  9.     eval 'sub DST_EET {5;}';
  10.     eval 'sub DST_CAN {6;}';
  11.     eval 'sub timerisset {
  12.         local($tvp) = @_;
  13.         eval "(($tvp)-> &tv_sec || ($tvp)-> &tv_usec)";
  14.     }';
  15.     eval 'sub timercmp {
  16.         local($tvp, $uvp, $cmp) = @_;
  17.         eval "(($tvp)-> &tv_sec $cmp ($uvp)-> &tv_sec || ($tvp)-> &tv_sec == ($uvp)-> &tv_sec && ($tvp)-> &tv_usec $cmp ($uvp)-> &tv_usec)";
  18.     }';
  19.     eval 'sub timerclear {
  20.         local($tvp) = @_;
  21.         eval "($tvp)-> &tv_sec = ($tvp)-> &tv_usec = 0";
  22.     }';
  23.     eval 'sub ITIMER_REAL {0;}';
  24.     eval 'sub ITIMER_VIRTUAL {1;}';
  25.     eval 'sub ITIMER_PROF {2;}';
  26.     if (!defined &KERNEL) {
  27.     require 'time.ph';
  28.     }
  29. }
  30. 1;
  31.